home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 201-225 / disk_222 / plplot / src / source.zoo / plcvec.c < prev    next >
C/C++ Source or Header  |  1989-05-15  |  785b  |  39 lines
  1. /* Gets the character digitisation of Hershey table entry "char" */
  2. /* Returns 1 if there is a valid entry */
  3.  
  4. extern short int *buffer[];
  5. extern int *findex[];
  6.  
  7. #include "plplot.h"
  8.  
  9. int plcvec(ch,xygrid)
  10. int ch;
  11. short int xygrid[];
  12. {
  13.  
  14.       int nc1, nc2, k, ib, ix, iy;
  15.  
  16.       nc1=1;
  17.       nc2=3000;
  18.       if (ch < nc1 || ch > nc2) return(0);
  19.       ib = *(findex[(ch-nc1)/100] + (ch-nc1)%100);
  20.       if (ib == 0) return(0);
  21.  
  22.       k=1;
  23.       xygrid[k-1]= *(buffer[(ib-1)/100] + (ib-1)%100);
  24.  
  25.       k=k+1;
  26.       do {
  27.         ib=ib+1;
  28.         ix= *(buffer[(ib-1)/100]+(ib-1)%100)/128 - 64;
  29.         xygrid[k-1]=ix;
  30.         k=k+1;
  31.         iy = *(buffer[(ib-1)/100]+(ib-1)%100)%128 - 64;
  32.         xygrid[k-1]=iy;
  33.         k=k+1;
  34.       } while (ix != -64 || iy != -64);
  35.  
  36.       return(1);
  37.  
  38. } 
  39.